home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / COMM / BBS / RISCBBS / !RiscBBS / Menus / Msgbase / LocZipNew < prev    next >
Text File  |  1992-02-24  |  999b  |  62 lines
  1. {
  2.  report `Message newscan`
  3.  
  4.  defopt F= `Forward` 10 ``
  5.    m_read `1 N`
  6.    if RET
  7.      menu Msgbase.Main
  8.    endif
  9.  endopt
  10.  
  11.  defopt B= `Backward` 10 ``
  12.    m_read `-1 N`
  13.    if RET
  14.      menu Msgbase.Main
  15.    endif
  16.  endopt
  17.  
  18.  defopt C= `Current` 10 ``
  19.    m_read `0 N`
  20.    if RET
  21.      menu Msgbase.Main
  22.    endif
  23.  endopt
  24.  
  25.  defopt S= `Start of area` 10 ``
  26.    m_read `1 N RB`
  27.    if RET
  28.      menu Msgbase.Main
  29.    endif
  30.  endopt
  31.  
  32.  defopt E= `End of area` 10 ``
  33.    m_read `-1 N RE`
  34.    if RET
  35.      menu Msgbase.Main
  36.    endif
  37.  endopt
  38.  
  39.  defopt ¤= `Next` 10 ``
  40.    m_read `0 N I`
  41.    if RET
  42.      menu Msgbase.Main
  43.    endif
  44.  endopt
  45.  
  46.  defopt R= `Reply` 10 ``
  47.    m_enter `R`
  48.  endopt
  49.  
  50.  defopt K= `Kill` 10 ``
  51.    m_kill
  52.  endopt
  53.  
  54.  defopt A= `Abort` 10 ``
  55.    menu Msgbase.Main
  56.  endopt
  57.  
  58.  attr 0 6
  59. }
  60. Newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  61.          {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 eof}
  62.